Option Explicit
Sub Q_Sample039()
    ']wޥζMicrosoft Shell Controls And Automation
    Dim mySh      As Shell32.Shell
    Dim myFldItem As Shell32.FolderItem
    Dim myFolder  As Shell32.Folder
    Set mySh = CreateObject("Shell.Application")
    'wƧ
    Set myFolder = mySh.NameSpace(ThisWorkbook.Path)
    For Each myFldItem In myFolder.Items
        If myFldItem.Name Like "*.xls" Then		'wɮ
            With myFldItem
                Debug.Print .Name
                Debug.Print .ModifyDate
                Debug.Print .Size
                Debug.Print .Type
                Debug.Print
            End With
        End If
    Next

    Set myFldItem = Nothing					'
    Set mySh = Nothing
End Sub
